unit IngredProdutos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, ImgList, ComCtrls;

type
  TFormIngredProdutos = class(TForm)
    ListView2: TListView;
    ImageList2: TImageList;
    ActTotal: TActionList;
    ActionVoltar: TAction;
    procedure ActionVoltarExecute(Sender: TObject);
    procedure ListView2Click(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormIngredProdutos: TFormIngredProdutos;

implementation

{$R *.dfm}

procedure TFormIngredProdutos.ActionVoltarExecute(Sender: TObject);
begin
close;
end;

procedure TFormIngredProdutos.ListView2Click(Sender: TObject);
var List: TListView;
begin
if TListView(Sender).Selected <> nil then
  begin
        List := TlistView(Sender);
        ActTotal.Actions[List.Selected.StateIndex].Execute;
  end;

end;

procedure TFormIngredProdutos.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

  if Key = VK_ESCAPE then
     self.close;
end;

end.
